home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmplet.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  4.4 KB  |  137 lines
  1.  
  2. static L8();
  3. static object LI1();
  4. #define VMB1 register object *base=vs_top; object  V28 ,V25 ,V22 ,V21 ,V20 ,V19 ,V17 ,V16;
  5. #define VMS1  register object *sup=vs_top+4;vs_top=sup;
  6. #define VMV1 vs_reserve(4);
  7. #define VMR1(VMT1) vs_top=base ; return(VMT1);
  8. static object LI2();
  9. #define VMB2 register object *base=vs_top; object  V80 ,V77 ,V76 ,V75 ,V74 ,V73 ,V72 ,V71 ,V70 ,V69 ,V67 ,V66 ,V64 ,V62 ,V61 ,V60 ,V59 ,V58 ,V57 ,V55 ,V52 ,V50 ,V49 ,V47 ,V45;
  10. #define VMS2  register object *sup=vs_top+8;vs_top=sup;
  11. #define VMV2 vs_reserve(8);
  12. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  13. static object LI3();
  14. #define VMB3 register object *base=vs_top; object  V110 ,V107 ,V106 ,V105 ,V104 ,V103 ,V101 ,V100;
  15. #define VMS3  register object *sup=vs_top+4;vs_top=sup;
  16. #define VMV3 vs_reserve(4);
  17. #define VMR3(VMT3) vs_top=base ; return(VMT3);
  18. static object LI4();
  19. #define VMB4 register object *base=vs_top; object  V152 ,V150 ,V149 ,V143 ,V142 ,V141 ,V139 ,V137 ,V136 ,V134 ,V131 ,V129 ,V128 ,V125;
  20. #define VMS4  register object *sup=vs_top+8;vs_top=sup;
  21. #define VMV4 vs_reserve(8);
  22. #define VMR4(VMT4) vs_top=base ; return(VMT4);
  23. static object LI5();
  24. #define VMB5 object  V169 ,V167 ,V165 ,V163 ,V160 ,V159;
  25. #define VMS5
  26. #define VMV5
  27. #define VMR5(VMT5) return(VMT5);
  28. static object LI6();
  29. #define VMB6 register object *base=vs_top; object  V182;
  30. #define VMS6 vs_top += 1;
  31. #define VMV6 vs_reserve(1);
  32. #define VMR6(VMT6) vs_top=base ; return(VMT6);
  33. static object LI7();
  34. #define VMB7 register object *base=vs_top;
  35. #define VMS7  register object *sup=vs_top+2;vs_top=sup;
  36. #define VMV7 vs_reserve(2);
  37. #define VMR7(VMT7) vs_top=base ; return(VMT7);
  38. #define VC8
  39. static object LI9();
  40. #define VMB9 register object *base=vs_top; object  V206 ,V205 ,V200;
  41. #define VMS9 vs_top += 1;
  42. #define VMV9 vs_reserve(1);
  43. #define VMR9(VMT9) vs_top=base ; return(VMT9);
  44. static object LI10();
  45. #define VMB10 register object *base=vs_top; object  V213;
  46. #define VMS10  register object *sup=vs_top+3;vs_top=sup;
  47. #define VMV10 vs_reserve(3);
  48. #define VMR10(VMT10) vs_top=base ; return(VMT10);
  49. #define VM10 3
  50. #define VM9 1
  51. #define VM8 4
  52. #define VM7 2
  53. #define VM6 1
  54. #define VM5 0
  55. #define VM4 8
  56. #define VM3 4
  57. #define VM2 8
  58. #define VM1 4
  59. static char * VVi[78]={
  60. #define Cdata VV[77]
  61. (char *)(LI1),
  62. (char *)(LI2),
  63. (char *)(LI3),
  64. (char *)(LI4),
  65. (char *)(LI5),
  66. (char *)(LI6),
  67. (char *)(LI7),
  68. (char *)(L8),
  69. (char *)(LI9),
  70. (char *)(LI10)
  71. };
  72. #define VV ((object *)VVi)
  73. static object  LnkTLI76() ;
  74. static object  (*LnkLI76)() = LnkTLI76;
  75. static object  LnkTLI75() ;
  76. static object  (*LnkLI75)() = LnkTLI75;
  77. static object  LnkTLI74() ;
  78. static object  (*LnkLI74)() = LnkTLI74;
  79. static object  LnkTLI73() ;
  80. static object  (*LnkLI73)() = LnkTLI73;
  81. static  LnkT72() ;
  82. static  (*Lnk72)() = LnkT72;
  83. static object  LnkTLI71() ;
  84. static object  (*LnkLI71)() = LnkTLI71;
  85. static object  LnkTLI69() ;
  86. static object  (*LnkLI69)() = LnkTLI69;
  87. static  LnkT68() ;
  88. static  (*Lnk68)() = LnkT68;
  89. static object  LnkTLI67() ;
  90. static object  (*LnkLI67)() = LnkTLI67;
  91. static object  LnkTLI66() ;
  92. static object  (*LnkLI66)() = LnkTLI66;
  93. static object  LnkTLI12() ;
  94. static object  (*LnkLI12)() = LnkTLI12;
  95. static object  LnkTLI65() ;
  96. static object  (*LnkLI65)() = LnkTLI65;
  97. static object  LnkTLI64() ;
  98. static object  (*LnkLI64)() = LnkTLI64;
  99. static object  LnkTLI63() ;
  100. static object  (*LnkLI63)() = LnkTLI63;
  101. static object  LnkTLI62() ;
  102. static object  (*LnkLI62)() = LnkTLI62;
  103. static object  LnkTLI55() ;
  104. static object  (*LnkLI55)() = LnkTLI55;
  105. static object  LnkTLI54() ;
  106. static object  (*LnkLI54)() = LnkTLI54;
  107. static  LnkT53() ;
  108. static  (*Lnk53)() = LnkT53;
  109. static object  LnkTLI52() ;
  110. static object  (*LnkLI52)() = LnkTLI52;
  111. static object  LnkTLI51() ;
  112. static object  (*LnkLI51)() = LnkTLI51;
  113. static object  LnkTLI50() ;
  114. static object  (*LnkLI50)() = LnkTLI50;
  115. static object  LnkTLI49() ;
  116. static object  (*LnkLI49)() = LnkTLI49;
  117. static object  LnkTLI48() ;
  118. static object  (*LnkLI48)() = LnkTLI48;
  119. static object  LnkTLI47() ;
  120. static object  (*LnkLI47)() = LnkTLI47;
  121. static object  LnkTLI46() ;
  122. static object  (*LnkLI46)() = LnkTLI46;
  123. static object  LnkTLI45() ;
  124. static object  (*LnkLI45)() = LnkTLI45;
  125. static object  LnkTLI44() ;
  126. static object  (*LnkLI44)() = LnkTLI44;
  127. static object  LnkTLI43() ;
  128. static object  (*LnkLI43)() = LnkTLI43;
  129. static object  LnkTLI42() ;
  130. static object  (*LnkLI42)() = LnkTLI42;
  131. static  LnkT41() ;
  132. static  (*Lnk41)() = LnkT41;
  133. static object  LnkTLI40() ;
  134. static object  (*LnkLI40)() = LnkTLI40;
  135. static object  LnkTLI39() ;
  136. static object  (*LnkLI39)() = LnkTLI39;
  137.